﻿Public Class frmInputVisorBox
#Region "<< -Attributes- >>"
    Public Enum Behavior
        Read = 1
        Write = 2
    End Enum
#End Region

#Region "<< -Events- >>"
    Private Sub btnButton1_Click(sender As System.Object, e As System.EventArgs) Handles btnButton1.Click
        Me.Close()
    End Sub
#End Region

#Region "<< -Method- >>"
    Public Function ShowBox(pTitle As String, pBehavior As Behavior, Optional pMessageDefault As String = "") As String
        grpCtrol.Text = pTitle
        txtMessage.ReadOnly = IIf(pBehavior = Behavior.Read, True, False)
        txtMessage.Text = pMessageDefault
        Me.ShowDialog()

        If pBehavior = Behavior.Write Then
            Return txtMessage.Text
        Else
            Return String.Empty
        End If
    End Function
#End Region


End Class